home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / prod_pc / demo / glen_cd.dir / 00078.ls < prev    next >
Encoding:
Text File  |  1996-02-19  |  453 b   |  25 lines
  1. on startMovie
  2.   global gDriveLetter
  3.   openXLib("fileio.dll")
  4.   set temp to the pathName
  5.   set gDriveLetter to chars(temp, 1, 2)
  6.   getPath()
  7.   cursor(200)
  8. end
  9.  
  10. on stopMovie
  11.   closeXLib("fileio.dll")
  12. end
  13.  
  14. on getPath
  15.   global gProdPath
  16.   set theFileName to "\demo\path.ini"
  17.   set myFileObj to FileIO(mnew, "read", theFileName)
  18.   if objectp(myFileObj) then
  19.     set gProdPath to myFileObj(mReadLine)
  20.     myFileObj(mdispose)
  21.   else
  22.     nothing()
  23.   end if
  24. end
  25.